object frmHyperlink: TfrmHyperlink Left = 384 Top = 308 BorderStyle = bsDialog Caption = 'Hyperlink' ClientHeight = 103 ClientWidth = 383 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poMainFormCenter PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 275 Height = 81 Caption = 'Hyperlink Information' TabOrder = 4 object Label1: TLabel Left = 9 Top = 22 Width = 27 Height = 14 Caption = '&Type:' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 9 Top = 52 Width = 22 Height = 13 Caption = '&URL' end end object btnOk: TButton Left = 296 Top = 14 Width = 76 Height = 24 Caption = 'OK' Enabled = False ModalResult = 1 TabOrder = 1 end object btnCancel: TButton Left = 297 Top = 48 Width = 76 Height = 24 Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object dropType: TComboBox Left = 46 Top = 25 Width = 67 Height = 21 DropDownCount = 10 ItemHeight = 13 TabOrder = 3 Text = 'http:' OnChange = dropTypeChange Items.Strings = ( '(other)' 'file:' 'ftp:' 'gopher:' 'http:' 'https:' 'mailto:' 'news:' 'telnet:' 'wais:') end object editlURL: TEdit Left = 45 Top = 56 Width = 220 Height = 21 TabOrder = 0 OnChange = editlURLChange end end